-- background: 2202 from stack: in.1
-- bmap block id: 12879
-- flags: 4000
-- background id: 0
-- name: Functions
----- HyperTalk script -----
on opencard
  put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  set scroll of field description to 0
end opencard



-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=56 top=69 right=299 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: description


-- part 3 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=54 top=23 right=57 bottom=337
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Name


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=456 top=301 right=329 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  visual effect iris close
  go first card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=280 top=306 right=331 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  visual effect wipe left
  go to next card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=228 top=306 right=331 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  visual effect wipe right
  go to previous card
end mouseUp



-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=255 top=311 right=327 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PageNumber


-- part 11 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=74 right=117 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  visual iris open to gray
  visual iris close to black
  visual iris open to gray
  visual iris close
  go background information
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=119 right=162 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  visual barn door close to black
  visual barn door open
  pop card
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=164 right=207 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  go to first card of home
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=209 right=252 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Stack
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  domenu "open stack..."
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=254 right=297 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Launch Application
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  visual venetian blinds to gray
  visual venetian blinds to black
  visual venetian blinds to gray
  visual venetian blinds

  go to background "Mini Hyperstation"
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=2 top=299 right=342 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 21786 / 21786
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menus On
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  If the short name of the target is "Menus On" then
    set the name of the target to "Menus Off"
    show menubar
  else
    set the name of the target to "Menus On"
    hide menubar
  end if
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=80 top=305 right=328 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install Function
----- HyperTalk script -----
on mouseup
  if the optionkey is down then pass mouseup
  put "This will install this function into a stack of your choice"
  put "Please select the target stack for installation"
  put filename("STAK") into targetStack
  if targetStack is empty then
    hide message
    play oops
    exit mouseup
  end if
  put "Updating stack.  Please wait..."
  set cursor to 4
  put the script of stack targetStack into originalScript
  put field "name" into FunctionName

  if FunctionName is in originalScript then
    play oops
    answer "This Function is aleady installed in this script"
    hide message
    exit mouseup
  end if

  put the script of this card into functionScript
  put originalScript into newScript
  put return&return&"--Beginning of "&FunctionName after newScript
  put return&functionScript after newScript
  put return&"--End of "&FunctionName after newScript
  set the script of stack targetstack to newScript
  hide message
end mouseup



-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=322 top=305 right=328 bottom=445
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Remove Function
----- HyperTalk script -----
on mouseup
  if the optionkey is down then pass mouseup
  put "Please select the stack from which to remove this function"
  put filename("STAK") into targetStack
  if targetStack is empty then
    play oops
    hide message
    exit mouseup
  end if
  set cursor to 4
  put the script of stack targetStack into originalScript
  put field "name" into FunctionName
  if functionName is not in originalScript then
    play oops
    answer "This function is not installed in this stack!"
    hide message
    exit mouseup
  end if
  put "Updating stack.  Please wait..."
  put offset("--Beginning of "&FunctionName,originalScript)-2 into beginDelete
  put offset("--End of "&FunctionName,originalScript) +length("--End of "&FunctionName) into endDelete
  delete char beginDelete to endDelete of originalScript
  set the script of stack targetStack to originalScript
  hide message
end mouseup